# name : proc format number to char
# key : proc.format.number.to.char
# contributor: Shuguang Sun
# --
proc format${2: library=${3:fmtsearch}};
  value ${1:fmtname}
    low -< 2   = "A"
    2 -< 6     = "B"
    8 - HIGH   = "C"
    other      = "D";
run;